DDDDDDDDDDDD 
DDDDDDDDDDDD 
ee 


DDDDDDDDDDDD 
DDDDDDDDDDDD 
DDDDDDDDDDDD 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
ABA AAS 
AAA AKA 
AAA AMA 
AAA AMA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA AAA 
AAA ABA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA BAA 
AAA AAR 
AAA AAA 


I 
] 
] 
1 
I 
] 
I 
I 
] 
I 
I 
I 
] 
u 
U 


) 
LY) 
) 
D 
0) 
D 
D 
D 
D 
D 
D 
D 
D 
D 
) 
DU 
DL 
DL 
DL 
DL 


**FILE**1D**POOL 


PPPPPPPP 
PPPPPPPP 


P PP 
PPPPPPPP 
PPPPPPPP 


LLLLLLLLLL 
LLLLLLLLLL 


— 


Peo Bas Ct Fs ne Rt Re eg es Pe bg Bo bn be 


bt a tt be a a he bs hs oe hn ss 
Rena te 


mt 
faa be 


bo Ome 
bese Beet 
eet oe 
be 


M 2 
POOL DISPLAY NON=PAGED POOL ROUTINES 16-SEP-1984 01:41:24 VAX/VMS Macro V04-00 Page 0 Oe 
Table of contents Vv 


(1) COPYRIGHT NOTICE 

6} PROGRAM DESCRIPTION 

(3) 1 DECLARATIONS 

(4) 1 § STORAGE DEFINITIONS 

(5) 40 SHOW_POOL RANGE == DISPLAY DYNAMIC STORAGE POOLS 
(6) 451 Ow ~poot “= DISPLAY DYNAMIC STORAGE POOLS 

(7) 604 SPLAY DYNAMIC STORAGE POOL 


N 2 
DISPLAY NON=PAGED POOL ROUTINES IG-SEP=1984 01:41:24 VAX/VMS Macro vO4-00 F 
reer 198 O:ahise FENAMES Bsn wean ve 


-TITLE POOL DISPLAY NON-PAGED POOL ROUTINES 
-$BTTL FOPYRA Gut NOTICE 


—MmARRBARBAAAARAARAASALASLALAAALARRSEAARA RELA REAR RR AR ALARA A ARERR RARER SAAS E ARERR SAAS SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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v04=000 PROGRAM DESCRIPTION BreeE robe bbi45:5 Leda eacrobo: Maks ee 
0 9 rel -SBTTL PROGRAM DESCRIPTION 
p : FACILITY 
099 4 ; SYSTEM DUMP ANALYZER 
09 : > ABSTRACT 
90 8 : DUMP NON-PAGED POOL ROUTINES 
000 40; ENVIRONMENT 
O38 41 ; 
00 $g 3 NATIVE MODE, USER MODE 
0000 <3 § 
0000 44 ; AUTHOR 
0000 45 ; 
44 28 : TIM HALVORSEN, JULY 1978 
000 47 ; 
0000 48 ; MODIFIED BY 
0000 49 ; 
0000 50 ; v03-013 MSHO069 Michael S. Harvey 23-Jul-1984 
0000 51 3 Clarify pool summary messages so that pool summaries 
464 26 : are useful on hardcopy terminals. 
0000 54: V03-012 MSHO063 Michael S. Harvey 16-Jul-1984 
sae 2? 3 Correct bounds check once again to allow recognition of a KFE. 
0000 «+57: vO3-011 TMKO0O1 Todd M. Katz 28-Apr-1984 
0000 58 ; Replace LOG type with LNM type in BLOCK_TABLE. Also, fix the 
0000 77 3 check that is made within the routine CRECK_BLOCK for an unknown 
0000 60 ; block's granularity. There are two predions with the current 
0000 61 ; default premp.er icy check. First, the check is not being made 
0000 6¢ s on the block's size. Secondly, the check itself is being made 
44 o7 : incorrectly 
0000 65; VO3-010 MSHO023 Michael S. Harvey 23-Mar-1984 
i444 68 z Add KFPB to data structure recognition table. 
0000 68: v03-009 EMD0063 Ellen M. Dusseault 17-Mar-1984 
0000 9; Rod ty macro, $EQU, to create two tables for 
0000 0; identifying Sustyeee of the generic code. 
44 4 : Tables are used by the format command. 
9000 7 ; V03-008 MSHOO14 Michael S. Harvey 2-Mar-1984 
8000 ee : Correct granularity checks for PQBs. 
9000 7% ; vO3-007 MSHO012 Michael S. Harvey 27-Feb-1984 
0000 a3 Correct granularity checks for KFE and KFD data structures 
aia ee : so that SDA correctly identifies them in paged pool. 
$00 0; v03-006 MSHO007 Michael S. Harvey 3-F eb-1984 
000 ie Process Quota Blocks are now in paged pool. Changed data 
$ ; 3 here so that they are recognised when seen. 
$5 4: v03-005 MSHO004 Michael S. Harvey 2-Feb-1984 
8 00 S$ 3 Change upper bounds check for global section descriptors 
00 6; to support longer section names. Also, correct lower bound 
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AM D -SEP-19 SDA.SRCJPOOL.MAR; 
09 check for PFN-mapped global section descriptors. 
v03-004 CDS0001 Christian D. Saether 3-Aug-1983 
8 Remove obsolete SRVXDEF. 
00 v03-003 JLVO0279 Jake VanNoy 27-JUL-1983 
009 Remove obsolete SBRDDEF. 
000 v03-002 RPGO002 Bob Grosso 27-Jun-1983 
444 Replace old Known file structures with the new ones. 
B808 v03-001 KTA3062 Kerbey T. Altmann 26-Jun-1983 
44 Account for extra sized FCB's. 
| 0000 v02-008 KTA0069 Kerbey T. Altmann 24-Jan-1982 
Ba58 Add SHOW POOL/SRP. 
0000 v02-007 KTA0062 Kerbey T. Altmann 04-Jan-1982 
0000 Modify a few global locations to access new pool 
444 sizes and starting addresses. 
0000 V02-006 KTA0044 Kerbey T. Altmann 11-Nov-1981 
44 Add SHOW POOL/LRP. 
0000 v03-005 KTA0029 Kerbey Altmann 01-Aug-1981 
0000 1. Add more entries to BLOCK_TABLE. 
0000 - Add SHOW POOL range. 
44 - Add SHOW POOL/HEADER and /FREE 
v03-004 KTA0027 Kerbey Altmann 28-Jul-1981 
44 Modify to accept sub-typable blocks. 
0000 v003 MTROOO1 Mike Rhodes 22-Jun-1981 
0000 Change all CMPW's referencing an MSG$_ symbol to CMPL's. 


Change default addressing mode to longvord. 
Remove references to SSDAMSGDEF macro. 


v002 TMHOOO2 _ Tim Halvorsen 07-Feb-1981 
Convert word displacements to longword displacements 
Fix end-of-pool edge condition when dumping a pool 
which ends with a block in use. 


v001 TMHOOO1 Tim Halvorsen 30-Sep-1980 
Use SEQU rather than SEQULST to obtain block Enpe 
code strings because MDL no longer produces SEQULST. 
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; DEFINE SYMBOLS FOR BLOCK TABLE 


; OPTION DEFINITIONS 
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POOL DISPLAY NON=PAGED POOL ROUTINES 16-SEP-1984 01:41:24 VAX/VMS Macro v04-00 Pp 
v04-000 STORAGE DEFINITIONS sty Pi §3:95:89 SDA. SRCJPOOL.MAR; 1 ete 
: $ .SBTTL STORAGE DEFINITIONS 
188 ; 
09 , ; STORAGE DEFINITIONS 
0900 138 ; -default displacement, long 
00000000 19 .PSECT SDADATA,NOEXE,WRT 
$800 198: 
0000 138 : NOTE: Following two locations must be contiguous!!! 
$600 198 SPACE_USED: 
00000004 9000 199 aaale spite 1 : TOTAL SPACE IN USE 
00000008 0004 301 ~ on 4 ; TOTAL SPACE AVAILABLE 
0008 0¢ IRP_POOL _START: 
0000000c 0008 20 , 1 : START OF IRP POOL 
000C 204 IRP_BITMAP: 
00000000 000¢ 205 .LONG 0 : ADDRESS OF IRP POOL BITMAP 
sig 338 
0010 208: DEFINE SELECTION CONDITIONS FOR VARIOUS BLOCK TYPES 
gig 5 
00000001 0010 211 NONP = 1 : BIT FOR NON-PAGED PCOL 
00000002 9019 1 PAGD = 2 : BIT FOR PAGED POOL 
00000001 0010 214 IRP = 1 : CODE FOR IRP LOOKASIDE LIST 
00000002 0010 215 LRP = : : CODE FOR LRP LOOKASIDE LIST 
0000000 0019 16 SRP = : CODE FOR SRP LOOKASIDE LST 
0010 218 .MACRO BLOCK  TYPE,MIN=0,MAX=<*X7FFF>,POOL=NONPAGED , GRAN=<*XF > 
0010 219 <BYTE DYNSC_'TYPE 
0010 20 <WORD MIN 
0010 1 “WORD  <MAX#+*XF>8“°C<*xXF> 
0010 $s¢ IF IDN,<POOL>,<NONPAGED> 
0010 2 "BYTE | NONP 
0010 ; 4 TIFF 
0010 5 .IF IDN,<POOL>,<PAGED> 
9019 3 .BYTE PAGD 
001 ? LIFF 
0010 8 m i IDN,<POOL>,<ANYPOOL> 
0019 ; BYTE NONP ! PAGD 
0019 1 “ERROR ; ILLEGAL POOL SPECIFICATION 
001 : ENDC 
010 -ENDC 
010 4 -ENDC 
318 BYTE GRAN 
001 ‘ 
010 8 BLOCK_TABLE: 
10 9 LOCK ACB, ACBSL_KAST+4, IRPSC_LENGTH 
00000007 001 40 BLK_TBL_SIZ=.-BLOCK_TABLE 
017 241 BLOCK ADPTADPS$C_MBAADPLEN, 1536 
O1E 242 BLOCK AQB,AQBSC~LENGTH, AQBS$C_LENGTH, GRAN=0 
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3; to by symbol, 
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16-SEP-1984 4 VAX/VMS Macro yos=90 Page 6. 
g- -SEP=1 1982 8}: $3: $4 SDA.SRCJPOOL.MAR; 1 aaslee 
CORP, CDRPSC_LENGTH, CDRPSC_LENGTH+CDRPS$C_BT_LEN+16 
CEB, {RPSC_LENGTH, IRPS$C_LENGTH 
CRB, CRBSC_LENGTH, CRBSL_INTD2+VECS$C_LENGTH 
CXB.CXBSC-LENGTH 
DDB. DDB$C-LENGTH, DDBSC_LENGTH 
DPT, DPT$SC_LENGTH, GRAN=O0 
ERP.0,0 IN_LOCAL MEMORY 
EXTGSH,GSD$C_EXTGSDLNG, GSD$SC ExTésDUNGLa3- PAGED, GRAN=0 
FCB, FCBSC_LENGTH,FCBSS.. F CBDEF 
FRK.FKBSC_LENGTH.FKBSC LENGTH 
GSD. GSDSC“LENGTH. GSDSC_LENGTH*43 PAGED, GRAN 0 
IDB, IDBSC-LENGTH, IDB$SC-LENGTH+824 EXTRA 8 DUE TO ERROR IN IN 
IRP, IRP$C LENGTH, IRP$C LENGTH 
IRPE, IRPESC_LENGTH, IRPSC_LENGTH 
JIB, JIBSC_LENGTH esc LENGTH 
KFRH,KFRHSC_LENGTH,2060,PAGED,GRAN=0 ; 12 header+max 4 blk hdr 
KFE,.KFESC_LENGTH,KFESC_MAXLEN.PAGED, GRAN=0 KF 
KFD,KFDSC_ ‘ev h- KFDSC~ LENGTH#+25 -PAGED, ~~ 'KFD+max devspc 
KFP -KEPBSC NGTH,KFPBSC_LENGTH, PAGED, GRA 
LNM.LNRBS T RAMES2* of PAGED MIN = CONSTANT PART LNMB + 2 BYTES | 
MBX.0,0 T IN LOCAL MEMORY 
MTL. MTLSC -LENGTH, MTLSC_LENGTH, paced” 
MVL.MVL$C~FIXLEN 


PBH. PBHSC “LENGTH, PBHSC_LENGTH 
PCB.PCB$C LENGTH, PCBSC LENGTH, GRAN=0 
PDB. PDBSC_LENGTH.PDB$C LENGTH 
PFL.PFLS$C-LENGTH 
PIB, ; NOT STANDARD BLOCK FORMAT 
PTR. PTRSL_PTRO, ,ANYPOOL 


POB, POBSC “LENGTH. POBsC LENGTH, PAGED, GRAN=0 
RBM.RBMSC LENGTH 
RSB,RSBSC_LENGTH, *ReBSC _LENGTH+RSBSK_MAXLEN+1 


RVT .RVTSC_L 
SHB. SHBSC~ LENGTH, SHB$C_LENGTH 
SHMCEB,0,0 : NEVER IN LOCAL MEMORY 
SHNGSD 0.9 ; NEVER IN LOCAL MEMORY 
SHRBUF NEVER IN LOCAL MEMORY 
SLAVCEB mitt LENGTH+12, cEBs¢ _LENGTH+12 

ae $c LENGTH, I TOESC LENGTH 


UB, “UCBS CD -tEN GTH,GRA 

vCB, VCBSC_ “pyuetue *VCBSC LENGTH, GRAN=0 
wcB, ucesc~ LENGTH 
0 ; END OF TABLE 


SDEFINI NAME,P1,P2 
0 


: sub type field 

: number of subtype fields for a generic function 
; offset for the generic function into 2nd table 
; ( dyn subptr). 


Ooooo lio 


psects contain tables for Suatyoes. The first table pointed 
dyn_mainptr, contains offsets into the second table for each 


x 
D POOL ROUTINES 16-SEP-1984 01:41:24 VAX/VMS Macro v04-00 Page 7 
ONS -SEP-19 19be 83:33:39 cry SRCIJPOOL. MARS . (4). 
3; generic code. The second table pointed fo by symbol, dyn_subptr, contains 
: hae sate the table (dyn_tab) of asci syabe s for each subtype of the 


PSECT DYNMAINPTR,LONG 
DYN_MAINPTR: 
ECT DYNSUBPTR, LONG 
DYN_SUBPTR: : 
.PSECT DYNMAP,LONG 


~ ""PSECT DYNPTR,LONG 

~ —"TPSECT DYNTAB 

“TASCIC /UNKNOWN/ 

LASTPC=, ; *e* TEMP UNTIL BUG IN MACRO FIXED ** 
.ENDM = SDEFINI 


- MACRO 1 DYNA gree. » VALUE 


—_ 
1Aa 


a <LAST. VALUE __MAIN-VALUE> 


L- 


>m “ 
“4° 


“HUMES 


.-DYN_T 

E(< > Ne YRBOL) +1 

H( (SYMBOL) = 
EXTRACT(S,L,SYMBOL) / 


<LAST_VALUE MAIN-VALUE> 
F re VALUE=1 


F NE SUBTF 

NSUBT = NSUBT+1 
.PSECT DYNSUBPTR 
“WORD LAST_SYM 

OFFSET = .=DYN_SUBPTR 


-PSECT DYNMAP 


-BY 

-PSECT DYNPTR 

«WORD SYM 
NDC 


; **e* TEMP UNTIL BUG IN MACRO FIXED ** 


DIFF 
F NE SUBTF 
-PSECT DYNMAP 
“BYTE NSUBT 
PSECT DYNPTR 
“WORD SYM 
SUBTF = 0 
ieee VALUE-LAST_VALUE_MAIN=1 
.PSECT DYNMAP 


-BY 
-PSECT DYNPTR 
-WORD SYM 
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CAST OVALUE —* 
LAST_SYM 


-ENDG 
SYMBOL = VALUE 
~-ENDM $EQU 


-MACRO SDEFEND NAME ,P1,P2 
END_SYM=LAST_ VALUE MAIN#1 
-PSECT DYATA 


eer DYNCNT ,LONG 


* BLKW 
DYN_ “cnt Sis, -DYN CNT 
Pha ECT DYNBYTES,LONG 


BYTES 
~ MDELETE "SbEF INI »$EQU, SDEFEND 
-PSECT POOL,EXE,NOWRT 
-DEFAULT DISPLACEMENT ,LONG 
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& «SBTTL SHOW _POOL_RANGE == DISPLAY DYNAMIC STORAGE POOLS 


oO 
ooo 
a 
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DISPLAY AND FORMAT THE CONTENTS OF THE a AND PAGED 
DYNAMIC STORAGE POOL OR ANY RANGE THEREOF 


INPUTS: 
14 le = oe ae FLAGS (RANGE OR LENGTH BITS RELEVANT) 


a} 
ci} 
218 
414 
415 
416 
0 41 
00 418 (OR, IF obENGTH BIT SET) 
900 41 ESP = Size 
420 ESP+4 = Sihe OOF PPODL 
000 421 
0000 4 : OUTPUTS: 
0000 4 
0000 424 NONE 
0000 425 :--- 
0000 426 
oc7¢ 9000 4 , -ENTRY SHOW_POOL_RANGE,“M<R2,R3,R4,R5,R6,R10,R11> 
56 O0000000'EF 9€ $003 429 MOVAB OPTIONS R6 : POINT TO OPTIONS WORD 
66 dO 0009 430 MOVL (R6), R 
18 52 01 E0 000C 431 BBS porrév" 20$ ; /IRP NOT ALLOWED 
O¢ D3 001 43¢ BITL #OPTSM ~HONBAGED !OP TSM. PAGED, R2 ; IF NEITHER SPECIFIED... 
if 001 43 BNEQ ‘i THEN 
00 66 E2 001 434 BBSS §§ #OPTSV_NONPAGED, (R6),10$° SET /NONPAGED 
51 09900900" i DO 0019 435 10$ MOVL P, R : POINT io® EXPRESS 10M STACK 
07 E0 9020 436 BBS #OPTSV_RANGE, R2, 30$ : RANGE SPECIFIED 
11 2 EO 0024 437 BBS #OPTSVLENGTH, R2, 40$ : LENGTH SPECIFIED 
35 D4 0028 438 20S: CLRL oR : SYNTAX ERROR 
04 002A 439 RET 
0028 440 
4 al 09 0028 441 308: MOVL 4(R1),R5 : RS = LOWEST ADDRESS 
3 C3 O02F 44g SUBL3 R5,(R1).R4 : R4 = SIZE 
1405 66 be E2 0033 44 #OPTSV_LENGTH,(R6),50$ ; SET A SINGLE BIT FOR RANGE 
, 03 11 0037 444 BRB 50$ 
| 0039 445 
54 | 61 7D 0039 446 40S: mova (R1),R4 : RS = LOWEST ADDRESS 
0206 31 Sos 448 50$: BRW SCAN_POOL ; JOIN COMMON CODE 


| 


2 
POOL DISPLAY NON-PAGED POOL ROUTINES 16-SEP-1984 4 YAX/VMS Macro V04-00 Page 10 | 
v04=000 SHOW_POOL == DISPLAY DYNAMIC STORAGE POO 5-SEP=1984 1 83 $4) $4 EDA. SRCJPOOL.MAR; 1 ve )| 
i ; .SBTTL SHOW POOL <= DISPLAY DYNAMIC STORAGE POOLS | 
F 6453: 
: t2e ; SHOW_ POOL | 
Os 496 | DISPLAY AND FORMAT THE CONTENTS OF THE NON-PAGED AND PAGED | 
0 i 43 : DYNAMIC STORAGE POOL. | 
O08 439; Inputs: | 
88 F 460; 
0 : rhe 5 NONE 
a0 F 288 : OUTPUTS: 
O3F 464; 
OO3F 465 : NONE 
003 466 ; 
003 mae 
OO3F 469 .ENABLE LSB 
OFFC 005 470 SENTRY SHOW_POOL,“M<R2,R3,R4,R5,R6,R7,R8,R9,R10,R11> 
00000000'EF 04 0041 42g CLRL SPACE : INITIALIZE SPACE USAGE 
0102 8F 09 n0ebo0r ee 2c 0047 47 MOVCS 0(SP): 8. #DYN_CNT_SIZ,DYN_CNT : AND TYPE COUNTS 
0204 8F 00 6€ 00 2c 0058 474 MOVCS #0,(SP),#0,#DYN_BYT_SIZ,DYN_BYTES ; AND BYTE COUNTS | 
5B OO0000000'EF 9E O05F 475 MOVAB BUFFER,R11 ; R11 = GETMEM BUFFER 
53 Q0000000'EF 9E 0066 476 MOVAB OPTIONS,R3 _} PTR TO OPTIONS WORD | 
62 0000022E 8F D3 006D 477 BITL #OPTSM [RP !OPTSM LRP!OPTS$M_S 
0074 478 OPTSM-NONPAGED ! OPTSM_ PAGED. tha: SOMETHING SET? 
07 12 0074 479 BNEQ 10$ _} BRANCH IF 50 
63 0000022E 8F CB 0076 480 BISL  #OPTSM_IRP!OPTSM_LRP!OPTS$M_SRP 
007D 481 OPTSM~NONPAG D!OPTSM_ PAGED, Ri); SET /ALL 
7063 01 1 9070 48¢ 10$: BBC #OPTSV~IRP, (R3), 30S : SKIP IF NO /IRP 
0081 484 ; SCAN CONTENTS OF IRP LOOKASIDE LIST 
0081 486° SUBHD <IRP Lookaside List> 
OO8E 487 SKIP PAG 
1663 06 £0 0095 488 BBS soPTsy. SUMMARY , (R3), 20$ ; SKIP IF SUMMARY ONL 
Bone $33 crip’ ! ! Dump of blocks allocated from IRP erm list> 
SA DO 8F 9A OOAF 491 20$:  MOVZBL ey Size,R R10 ; R10 = IRP BLOCK SIZE 
0083 49¢ REQMEM @EXESGL_SPLITADR,R7 ; ADDRESS OF 1RP LOOKASIDE LIST 
00c3. 49 REQMEM a@lOC$GL— TRPEN CNT, RS ; NUMBER OF IRP SLOTS ALLOCATED 
| 0005 49% REQMEM alocsol IRPFL RS : HEAD OF IRP LIST 
56 00000000'EF 0&3 495 MOVL IOCS$GL_TRPFL, Re ; ADDRESS OF HEAD 
O1 DD OOEA 496 PUSHL #l ; INDICATE WHICH LOOKASIDE LIST | 
0506'CF 01 FB OOEC 49 CALLS #1,W ; SCAN THE IRP FREELIST 
03 00000000'EF 05 OF1 498 30$: BBS fgets. OcRP. OPTIONS, 35$ ; /LRP PRESENT? | 
009E | Org 499 BRW : NO, SKIP THE LRP | 
—— QOFE 501 SCAN CONTENTS OF LRP LOOKASIDE LIST | 
990000000" EF EF D4 Ore 08 $58:  CLRL_  SPACE_U ; INITIALIZE SPACE USAGE 
0102 8F oF 2¢ 198 4 MOVCS #0, (SP) seb #DYN_CNT_SIZ,DYN_CNT ; AND TYPE COUNTS 
00000000° 4 / 010 | 
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POOL DISPLAY NON=PAGED POOL ROUTINES -SEP=1984 4 VAX/VMS Macro v04-00 Page 11 | 
v04-000 SHOW POOL == DISPLAY DYNAMIC STORAGE poo | -SEP=1984 Z $3: 33: $3 SDA.SRCJPOOL.MAR; 1 ° (6) 
0204 8F 00 2C 910 505 MOVCS #0,(SP),#0,#DYN_BYT_SIZ,DYN_BYTES ; AND BYTE COUNTS 
“Boo08bo0'F: o1i3 mein ¥ 
1}4 96 “ =e lLookaside List> 
16 00000000'EF 06 £0 13¢ 08 BBS #OPTSV_ SUMMARY , OPTIONS. 40S ; SKIP IF SUMMARY ONLY 
178 24 coin oS! ltl! Dump Of blocks allocated from LRP lookaside List> 
14 11 40$ REQMEM @IOCS$GL_LRPSIZE,R ; R10 = LRP BLOCK SIZE | 
15¢ 1 REQMEM @IOCS$GL-LRPSPLIT i ; ADDRESS OF LRP LOOKASIDE LIST | 
16¢ 1 REQMEM @IOCS$GL-LRPCNT,RO ; NUMBER OF LRP SLOTS ALLOCATED 
O17C «= 514 REQMEM @I10C$GL~LRPFL,R9 ; HEAD OF IRP LIST 
56 00000000" EF DO 18¢ 15 OVL  I0C$GL_CRPFL,R ; ADDRESS OF HEAD 
DD 019 16 PUSHL RP ; INDICATE WHICH LOOKASIDE LIST | 
0S06'CF 01 FB 0195 1 CALLS #1,W ; SCAN THE LRP FREELIST 
03 00000000'EF 09 £0 O19A 518 42s: BBS sobTSy gabe OPTIONS, 45$ : /SRP PRESENT? 
009E 1 OIAg 2)2 BRW SCAN_POOL ; NO, SKIP THE SRP 
OAS 521 staat CONTENTS OF SRP LocKASINE LIST | 
00000000'EF D4 Te 5 5 45s: CLRL SPACE ; INITIALIZE SPACE USAGE 
0102 8F 09 00800" ee 2c O1A8 524 MOVCS 0. (SP). “8. #DYN_CNT_SIZ,DYN_CNT ; AND TYPE COUNTS 
0206 8F 00 6€ 00 2¢ O1B7 525 MOVCS #0,(SP),#0,#DYN_BYT_SIZ,DYN_BYTES ; AND BYTE COUNTS | 
00000000" EF OBE 
01C 288 SUBHD <SRP Lookaside list> 
01D0 527 SKIP — PAGE 
16 O0000000'EF 06 EO 0107 528 BBS #OPTSY. SUMMARY , OPTIONS ,47$ : SKIP IF SUMMARY ONLY 
Bier $2 44) at _!_! Dump of blocks allocated from SRP lookaside List> | 
O1F5 531 47S: REQMEM @I10CS$GL_SRPSIZE,R10 : R10 = SRP BLOCK SIZE 
0205 33¢ REQMEM @IOCS$GL~SRPSPLIT,R7 ; NDDRESS OF SRP LOOKASIDE LIST | 
0215 53 REQMEM @l0C$GL— Sp CNT. rb : NUMBER OF SRP SLOTS ALLOCATED 
0283 534 REQMEM @l0C$GL~ SRPFL a : HEAD OF IRP LIST 
56 O0000000'EF DO 0235 535 OVL 1OCSGL_SRPFL,R6 : ADDRESS OF HEAD 
03 DD O023C 536 PUSHL #SRP : INDICATE WHICH LOOKASIDE LIST 
0506'CF O01 FB Og3e 337 CALLS #1,W*DO_ILRP ; SCAN THE SRP FREELIST 
8 43 444 3 SCAN CONTENTS OF DYNAMIC NON-PAGED POOL 
6 43 541 SCAN_POOL: 
5A O0000000'EF DO 0243 248 MOVL OPTIONS,R10 PICK UP OPTIONS 
60 5A 02 €1 026A 54 BBC #OPTSV_NONPAGED,R10, 60s : BRANCH IF NOT SPECIFIED 
0246E 544 SUBHD <Non-paged dynamic storage pool> 
38 343 SKIP — PAGE 
16 5A 06 €0 026 46 BBS #OPTSV_SUMMARY,R10,50$ ; SKIP IF SUMMARY ONLY 
$6 44 PRINT Q. o<!_!7!_Dump of blocks allocated from non-paged pool> 
5 fe ‘8 50$ adi 
56 04 O0000000'EF 1 § 7¢ 84 ADDL3 EXESGL NONPAGED . #4,R6 =; ADDRESS OF FREE SPACE LIST 
0 84 331 REQMEM @MMGS$GC_NPA DYN, R? > NO, USE BEGINNING OF NON-PAGED POOL 
94 3g REQMEM ann G$GL~ NPACHIEXt : ENDING ADDRESS OF POOL 
51 OFF 8F AA O2Al 5 BICW @X1FF,R1 ; LOW 9 BITS ARE FLAGS 
51 52 C3 9 Ag 54 SUBL2 R2 R1 : LENGTH OF STORAGE POOL 
53 gr D A 55 MOVL  #NONP,R3 : BITS FOR NON-PAGED 
F 10 AC 36 BSBB set _UP_DUMP : GO DUMP IT 
AE 58 : SCAN CONTENTS OF DYNAMIC PAGED POOL 


DISPLAY NON-PAGED POOL ROUTINES =SEP=1984 4 \VAX/VMS Macro v04- =90 Page 12 
SHOW_POOL == DISPLAY DYNAMIC STORAGE POO Basset) 83: $4: $4 YODA. SRCJPOOL MAR; 1 a 
| 
AE 59 ; 
57 5A 03—séE‘* AE 60 40s: BBC #OPTSV_PAGED ,R10,80$ BRANCH IF NOT SPECIFIED 
Be 2 SUBHD <Pa ed-dynamic storage pool> 
16 5A 06 €0 02C6 8 BBS fori sy. SUMMARY,R10/70$ ; SKIP IF SUMMARY ONLY 
cA é5 crip g.<! ! Dump of blocks allocated from paged pool> 
E 70$: 
56 O0000000'EF 00 34 83 MOVL  EXESGL_PAGED,R6 : ADDRESS OF FREE SPACE LIST 
O2E7 568 REQMEM @MMGSGL_ PAGEDYN, R2 : BEGINNING OF PAGED POOL 
O2F7 $9 REQMEM aSGNSGL “PAGEDYN : NO, USE LENGT H OF POOL 
53 02 p0 0 04 p MOVL PAGD ; Bits” FOR PAGED 
04 7 57 BSBB Set UP DUMP : DUMP 
0309 es 80$: 
50 01 vO 0309 57 MOVL #1, RO : SUCCESS 
04 030C 574 RET 
0300 575 .DISABLE LSB 
030D 376 
0300 (577; 
0300 578: R1 = MAXIMUM LENGTH 
0300 579: R2 = MINIMUM START ADDRESS 
0300 580: R3 = POOL TYPE iTS 
0300 581: R4 = LENGTH (IF RANGE) 
030D 382 ; R5 = START ADDRESS (IF RANGE) 
0300 583 ; R6 = HEAD OF POOL 
0300 584 
030D 385 ger _UP_DUMP: 
10 5A 04 €1 0300 586 BBC #OPTSV_LENGTH,R10,30$ ; RANGE SET? 
52 55 401 0311 587 CMPL = RS, R2 ; ADDRESS MUST BE START OR GREATER 
03 1E& 0314 588 BGEGU 10$ : OKA 
55 52 00 0316 589 MOVL R2,R5 : IT H NOT, USE MIN 
50 52 51 C1 0319 590 10S: ADDL R1 +R2 RO + MAX ENDING ADDRESS 
77 50 55 C3 031D 591 SUBL3 R5,R0,-(SP) : GET MAX LENGTH 
6 54 01 0321 29¢ CMPL 4. (SP) : USE CIVEN MUST BE LESS OR EQUAL 
03 1B 0324 59 BLEQU 208 : OKAY 
54 6E— 00 0326 59% MOVL (SP) ,R4 : IT'S NOT, USE MAX 
BE D5 0329 595 208: TSTL (SP)+ : CLEAN STACK 
03 «(11 03 2 396 BRB 40$ : JOIN COMMON 
54 51 7D 0390 598 30S: MOVQ = R1,,R4 > USE THE DEFAULT 
0078 8F BB 0330 599 40S: PUSHR #*M<R3,R4,R5,R6> : PUSH THE PARAMETERS 
39'AF 04 FB 0334 600 CALLS #4 ,B*DUMP_POOL + DUMP THE POOL 


mM 3 
POOL DISPLAY NON-PAGED POOL ROUTINES 16-SEP-1984 01:41:24 VAX/VMS Macro vO4-00 Page 1 
v04=000 DUMP_POOL, DISPLAY DYNAMIC STORAGE POOL moet 7 83:34:55 SDA. SRCJPOOL.MAR; 1 . 13, 
3 4 .SBTTL DUMP_POOL, DISPLAY DYNAMIC STORAGE POOL 
9 : 
9 6 5 : THIS ROUTINE DISPLAYS THE CONTENTS (AS BEST IT CAN) OF 
3 608 ; A GIVEN DYNAMIC STORAGE POOL. 
9 610 : INPUTS: 
9 611: 4(AP) = BIT MASK FOR TYPE OF POOL 
9 61g ; B(AP) = LENGTH OF POOL 
9 613: 12(AP) = ADDRESS OF BEGINNING OF STORAGE POOL 
3 ols ; 16(AP) = ADDRESS OF FREE STORAGE LISTHEAD 
§ 9 616 joo- 
0339 = 61 .ENABLE LSB 
0339 618 
339 619 DUMP_POOL: 
BFC 339 6 0 <WORD *M<R2,R3,R4,R5,R6,R7,R11> 
5B O0000000'EF  9€ $338 6 : MOVAB L“BUFFER,R11 ; R11 = SCRATCH BUFFER 
04 AB DG 0342 3 CLRL = 4(R11) : ZERO LENGTH 
Q0000000'EF D4 O34 624 CLRL.  SPACE_USED ; INITIALIZE SPACE USAGE 
0102 8F a 2c 0348 625 MOVCS #0,(SP),#0,#DYN_CNT_SIZ,DYN_CNT ; ZERO COUNTS 
0204 8F 00 6€ 00 2c §336 626 MOVCS #0,(SP),#0,#DYN_BYT_SIZ,DYN_BYTES ; ZERO BYTE COUNTS 
00000000' EF O35 
52. (OC DO 0363 627 MOVL 12¢4P) ce ; SET ADDRESS OF POOL 
54 08 AC C1 0367 628 ADDL3 R2,8(A t ENDING ADDRESS OF POOL 
00000004"EF 08 AC DO O36C 629 OVL. CAP), TOfAL SPACE ; TOTAL SPACE IN POOL 
0374 630 REQMEM @16(AP),R : END+1 OF FIRST USED AREA 
53 52 «1 $381 63¢ CMPL —_ R2,, RB ; IS FIRST BLOCK FREE? 
38 «1B «(0384 ~~ 63 BLEGU 50$ + BRANCH IF NO 
56 653)~—«oD0 0386 634 10$:  MOVL R3,R6 : START OF FREE AREA 
$389 $32 + WE ARE NOW POINTING TO THE NEXT FREE CHUNK. USING ITS LINK POINTER 
0389 637 ; AND ITS LENGTH, COMPUTE THE STARTING AND ENDING ADDRESS OF THE NEXT 
baee O38 3; CHUNK OF ALLOCATED MEMORY. 
0389 640 208: REQMEM (R6),(R11),4#8 : LINK ADDRESS + LENGTH 
52 046 AB 256) «6C1 «(0396641 ADDL3 R6,4(R11),R2 : ADDRESS FOLLOWING FREE BLOCK 
57 52 DO 0398 64g MOVL R2,R7 + MAKE A COPY 
oc ac 52° «1 O39 64 CMPL R2 12 (AP) : IS IT LESS THAN START? 
06 16 O3A2 644 BGEQU 308 : NO, OKAY 
52 OC AC D 0 AG 649 MOVL  12(AP),R2 : USE SP ECIFIED START ADDRESS 
53 68 D AB 646 30$: MOVL  (R11),R3 : ADDRESS FOLLOWING USED AREA 
03 (1 AB O647 BNEQ 40S : BRANCH IF NOT END OF FREE List 
53 54 DO O3AD 648 MOVL  R4,R3 : IF END OF FREE LIST, USE END OF POOL 
Oc AC 36553) «D1 «0380 «= 649 40S: = CMPL.—saR'3, 12 (AP) : WITHIN RANGE OF “SPECIE LED ADDRESS? 
DO «61F «#60384 6 «= 650 BLssu 108 + NO, LOOK FOR NEXT BLO 
54 57 01 0386 651 CMPL = R7,, RG : CHECK IF END OF Poot’ 
03 «#1F 0389 636 BLSSU-50$ : BRANCH IF NOT YET DONE 
0087 31 BB 633 RW 120$ 
1 00000000" EF 00 €1 O38 655 50$: BBC #OPTSV_FREE,OPTIONS,55$ ; 
57 04 AB bg C6 $96 MOVL  4(R11)7R7 > LENGTH OF FREE AREA 
08 1 CA 63 BEQL 55% > NO me 
7 01 CE O3¢c 658 MNEGL #1,-(SP) : SET FOR "Ctree) 


IF /FREE THEN 
| 
| 
J 
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POOL DISPLAY NON=PAGED POOL ROUTINES 16-SEP-1984 01:41:34 AX/VMS Macro vO4~90 Page 14 
v04=000 DUMP_POOL, DISPLAY DYNAMIC STORAGE POOL 5-SEP-1984 03:33:27 ([SDA.SRCJPOOL.MAR; (7) 
7E 56 7D O3CF 659 MOva RG. - (SP) ; LENGTH AND ADDRESS 
0623'CF FB Dg 60 CALLS #3,W*POOL_BLOCK + PRINT IT OUT 
4 b8¢ ; DETERMINE THE BOUNDS OF THE BLC<K WE ARE NOW POINTING TO. 
D7 7 §5$:  REQMEM (R2),(R11),41 ; MUST BE AT LEAST 3 LONGWORDS 
55 08 Ag 3 E4 665 MOVZWL IRPSW_SIZE(R11),R5 + GET LENGTH OF BLOCK 
1 j E8 666 EQL 608 : BRANCH IF BAD LEN 
51 53 2¢ C EA 66 SUBL3 R2,R3,R1 + MAXIMUM ABLE 
51 O55) FE 668 CMPL =—saR5- RV : CHECK FOR REASONABLE LENGTH 
Ot 14 #OSF 66 BGTR 60§ : BRANCH IF BAD LENGTH 
55 OF ce 6 F3 0 ADDLZ #OXE RS + ROUND TO NEAREST 16 BYTES 
F <A O3F6 671 BICLO #*XF-RS 
QOAF 30 O3F9 676 BSBW CHECK BLOCK : MAKE ADDITIONAL BLOCK CHECKS 
33 50 «EB O3F¢ 673 BLBS  R0,90$ + BRANCH IF VALID TYPE 
O3tF 675 : IF WE CANNOT MAKE SENSE OUT OF THE BLOCK CONTENTS, LOOKAHEAD AND 
SFr 676 ; TRY TO LOCATE THE NEXT BLOCK WHICH LOOKS REASONABLE. 
56 52 «2DO O3FF 6678 60$: MOVL  R2.R6 ; INITIALIZE LOOKAHEAD POINTER 
56 10S 0 0402 679 70$:  ADDL2 #16,R6 + LOOKAHEAD EACH 16 BYTES 
53 56—CC«*O 040 680 CMPL = R6 RB : CHECK IF END 0 
22 «1 0408 681 BGEQU 80$ + BRANCH IF END 
040A 68¢ REQMEM (R6),(R11),#12 : FIRST 3 LONGWORDS 
51 08 AB 3¢ 0417 68 MOVZWL TRPSU_SIZE(RIT) .R1 > CHECK IF SIZE VALID 
ma 0418 684 EQL 0$ : SKIP IF BAD LENGTH 
50 53 52 C3 041D 685 SUBL3 R2,R3,RO ; MAXIMUM ALLOWABLE LENGTH 
50 657) «D1 0421 Ss 686 CMPL = R1.RO + CHECK FOR REASONABLE LENGTH 
DC «OIA 04 4 687 BGTRU 70% : SKIP IF BAD LENGTH 
0088 30 0426 688 BSBW CHECK BLOCK t MAKE ADDITIONAL BLOCK CHECKS 
d6 50.—s«E 04 9 689 bn BLBC ~—_- RO, 708 : BRANCH IF ILLEGAL BLOCK 
55 56 52 C3 O42C 691 SUBL3 R2,R6,R5 ; LENGTH OF BLOCK 
514 043 69¢ CLRL R81 : USE 0 AS BLOCK TYPE 
oh eae 3; THE BOUNDS OF THE BLOCK HAVE BEEN DETERMINED = DISPLAY THE CONTENTS 
00000000'EF41 B86 0432 696 90S: INCW  DYN_CNTCR1) : INCREMENT COUNT FOR TYPE 
00000000'EF 41 25 C0 a 637 ADDL R>,DYN_BYTESCRI ; INCREMENT BYTES USED FOR THIS TYPE 
05 8 443 699 BEQL 1008 : SKIP SUBTYPE IF ZERO 
01 AE 0B AB 88 0445 700 BISB IRPS$B_TYPE+1(R11),1(SP) : SET POSSIBLE SUBTYPE 
55 DD 044A 701 100$: PUSHL R : LENGTH OF BLOC 
32 DD 044C 7 ; PUSHL R : ADDRESS OF BLOCK 
0623'cF 03 F aie 7 CALLS #3,W*POOL_BLOCK + DUMP POOL BLO 
52. 55) «C0 (0453) = 704 ADDL R5.R2 : INCREMENT POINTER 
Goooo000'eF 46955 «= C0 (0456S 705 ADDL  R5,SPACE_USED : INCREMENT SPACE USAGE 
3 D1 0450 106 CMPL Re R3 : CHECK IF END OF USED AREA 
! 1—E 0460 7 BGEQU§ 110$ + BRANCH IF EN 
54 Di 0462 7 ; CMPL = R2_, RG : CHECK IF END OF RANGE 
0€ 16 0465 7 BGEGU 1208 : BRANCH IF END 
FF6D 31 467 £10 BRW 55$ : CONTINUE IF NOT 
46A ie : END OF USED AREA REACHED = SKIP TO NEXT FREE CHUNK AND LOOP 
54 53 D1 046A 714 1108: CMPL R3 R4 ; ARE WE ARE THE END OF THE POOL? 
06 16 0460 715 BGEQU 126$ : BRANCH IF SO 
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E 16-S 
=000 DUMP_POOL, DISPLAY DYNAMIC STORAGE POOL $78 P=1984 SDA. SRCJPOOL.MAR; 1 
56 653)~—CO«#O gf at MOVL RS Rb ; SKIP TO NEXT FREE BLOCK 
FFI4. 31 cfg 4 BRW 20§ 
4? at : END OF POOL REACHED = DISPLAY STATISTICS 
138 721 1208: SKIP PAGE 
02 O04 AC 01 O470 7 ¢ CMPL 4(AP),#PAGD ; PAGED POOL BEING DISPLAYED? 
13 480 7 EQL 125$ IF EQL YES 
0482 724 PRINT 0,<Summary of non-paged pool fencanted 
OD 11 O48F 725 RB i 4 
0491 7 § 125$: PRINT <Summary of yeeed —_. contents> 
O6E1'CF 00 FB Pe f f gs: CALLS oes W*SHOW_ COUNTS ; DISPLAY TYPE COUNTS 
4A3 729 "  §TATUS SUCCESS 
04 O4AA 730 RET 
4AB 731 
04AB «732 .DISABLE LSB 
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NES 16-SEP=1 


INPUTS: 


R7 = SCRATCH REGISTER 

R1i1_— = ADDRESS OF FIRST 

4(AP) = MASK FOR TYPE OF 
OUTPUTS: 

RO = STATUS 

R1 = BLOCK TYPE 


CHECK BLOCK: 


: CHECK THE TYPE = 1) IS IT NON-ZERO, 2) IS ITA 
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SNBRAGE Poo, 'SaSEP=1984 OS:4$;57 Lepaveactagoe yon 00 


SDA.SRCJPOOL .MAR; 1 


LOCAL SUBROUTINE TO CHECK IF BLOCK IS VALID 


F abies IN LOCAL STORAGE 


TYPE DEFINED IN THE 


; SDYNDEF MACRO, 2) IF IT IS SUBTYPEABLE, IS THE SUBTYPE WITHIN RANGE? 


MOVZBL IRPSB_TYPE(R11),R1 
BEQL 


E 
MOVE = DYN_MAPLR1),R7 
BLSS  60$ 
BEQL 108 
MOVE IRPSB_TYPE+1(R11),RO 
BEQL 10% 
CMPB ss RO, R7 
BGTRU 60$ 


NOW MAKE SPECIAL CHECKS ON PARAMETERS 


PICK UP TYPE 

BRANCH IF NOT VALID TYPE 
CHECK VALIDITY 

BRANCH IF NOT VALID TYPE 
BRANCH IF NOT SUBTYPABLE 
PICK UP A: ssaLe SUBTYPE 
ZERO ’ nee 

CHECK R NCE. 

OUT OF RANGE, NOT VALID 


DEFINED IN BLOCK_TABLE - 


Sete Ge Se Ge Be Ge Se 


MAX AND MIN SIZE, TYPE OF POOL, AND GRANULARITY. 


les MOVAB BLOCK_TABLE,RO 
20S: TSTB. = (RO) ~ 


BEQL 50$ 
CMPB sa R21, (RO) + 
BEQL «©=_—«-30$ 
ADDL  #BLK_TBL_$IZ-1,R0 
BRB 20$ ~ 
30$: MOVZWL IRPSW_SIZE(R11),R7 
CMPW R7,(RO)+ 
BLSSU B08. 
CMPW  =s_-R7, (RO) + 
BGTRU 6 
BITB 4 (AP),(RO)+ 
BEQL 
BITS (RO) + 
BNEQ 608 
40$: MOVL #1,R0 
RSB 
50$: MOVZWL IRPSW_SIZE(R11),R7 
BITB R7,#*ROF 
BEaL 46-4 0$ 
60$: CLRQ— RO 
RSB 


: ot i A gy g TABLE 
; F TABL 


; If F 
; SKIP TO NEXT ENTRY IN TABLE 
; AND LOOP UNTIL DONE 


PICK UP SIZE 
CHECK AGAINST MINIMUM 
BRANCH IF ILLEG 


Bete Be te te eee 
o 
x 
m> 
o 
x 
— 
ion 
S.. 


> 
— 


— THIS BLOCK BE IN THIS POOL? 


LEA 
CHECK GRANULARITY OF ABLock 
BRANCH IF NOT GRANULA 

MARK BLOCK VALID 


PICK UP SIZE AND TEST GR 
DEFAULT GRANULARITY = 16 BYTES 
BRANCH IF GRANULARITY OK 


MARK BLOCK ILLEGAL = UNKNOWN 


ANULARITY 


58 

FD 8F 

7E =650~—sO01 

58 0000000 ‘fe 

6E 

QOOOOOOO'EF 01 

OOOOOOOC'EF 51 

58 = 51 

68 6€ O00 6€ 00 

54 —s«BE 

56 59 

¢9 

50. 559 7? 

oc 

50 = 5A 

5550 

04 

00 68 50 

dB 

QOOOO004'EF 55 5A 
53 00000004'EF 
53 
03 0000000C "FF 
00000000" EF 

50 OA AB 

00000000 *EF 40 
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LOCAL SUBROUTINE TO CREATE LRP-IRP USAGE BITMAP 


os = Lookaside List head 

==> Start of pool for lookaside List 
Re = Number of blocks in lookaside List 
==> Lookaside List head 

R10 = Size of block 

Ril=--> Scratch buffer 


-WORD 0 


HOLD 
CALC LENGTH OF BITMAP 


ADDL3 #1, R0,-(SP) NUMBER OF BYTES FOR BITMAP 


MOVL LRP _BiTMAP, RE ADDRESS OF BITMAP 
BNEQ $ BRANCH IF ALREADY ALLOCATED 
PUSHL AMOUNT NEEDED 


(SP) 
CALLS #1,ALLOCATE 
MOVL  R1,IRP_BITMAP 


ALLOCATE THE SPACE FOR THE BITMAP 
AND SAVE ADDRESS OF IT 


CHECK IF BIT NUMBER TOO LARGE 
BRANCH IF OUTSIDE OF BITMAP 

SET BIT IN BITMAP FOR THIS FREE IRP 
GET FIRST LONGWORD AND FOLLOW CHAIN 


MOVL R1.RB 

MOVCS  #0.(SP),#0, (SP), (RB) ; ZERO BITMAP 

MOV (SP)+,R4 : CLEAN STACK & RS = # OF BLOCKS 

CMPL —s_ RO RO : CHECK IF END OF LIST 

BEQL 30% : BRANCH IF END OF LIST 

SUBL3 R7,R9,RO : CALCULATE OFFSET FROM START OF IRPS 
BLE 208 : BRANCH IF ILLEGAL POOL ADDRESS 

DIVL  R10,R0 : GET INDEX INTO BITMAP 


= UNKNOWN 
INCREMENT COUNT FOR TYPE 
INCREMENT BYTES USED FOR TYPE 
BLOCK TYPE 


INCW DYN_CNTCROJ 
ADDL R107DYN_BYTESCROJ 
PUSHL RO 


10$ 
MULL3 R10,R5,TOTAL_SPACE ; TOTAL BYTES FOR IRP LIST 
ADDL3 7, TOTAL_SPATE,R3 : ENDING ADDRESS OF SCAN 
CLRL sR : INIT BITMAP INDEX 
SCAN THE IRP LOOKASIDE POOL FOR ALLOCATED BLOCKS 
CMPL —s- RT, RB > CHECK IF DONE WITH SCAN 
BGEQ =: 106$ : BRANCH IF 
BBC R6,@IRP_BITMAP,45$ : BRANCH IF BLOCK NOT ON FREE LIST 
BRW 116$ : BLOCK ON FREE L 
ADDL R10 SPACE_USED : INCREMENT SPACE USAGE 
REQMEM (R75,(RI1).# : GET ENOUGH TO USE 
MOVZBL IRP$6_TYPE(R11),RO : GET BLOCK TYPE CODE 
BEQL : BRANCH IF UN 
TSTB DYN_MAPCRO) : CHECK IF TYPE LEGAL 
BGEQ 60% > BRANCH IF OK 
CLRL =. RO : ZER 
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05 13 58 1 BEQL 80% ; SKIP SUBTYPE IF ZERO 
01 AE OB AB 8 B : BISB IRPSB_TYPE+1(R11),1(SP) ; SET POSSIBLE SUBTYPE 
2A DD 38¢ 80S: PUSHL R10 : BLOCK LENGTH 
7 ODD ef 54 PUSHL R7 + BLOCK ADDRESS 
23'AF 303 FB 2¢ 55 CALLS #3,B*POOL_BLOCK ; DUMP CONTENTS OF BLOCK 
57 2A C C4 36 90$ ADDL  kR10,R7 : NEXT BLOCK 
6 D6 05¢7 INCL = RB ; INCREMENT BITMAP INDEX 
AA O11 09¢9 38 BRB 408 ; CONTINUE UNTIL DONE 
C8 60 100$: SKIP PAGE 
046 ac 4(03)—«COD1s«O5D 61 CMPL = #SRP,4(AP) : IS THIS THE SRP LIST? 
34 13 306 6¢ BEQL : IF EQ 
04 AC 2 v1 05D 4 CMPL #LRP 4 (AP) : IS THIS THE LRP LIST? 
OF 13 O5DC 864 BEQL 107$ F EQ 
OSDE 865 PRINT 0,<Summary of IRP Llookaside List> 
1¢ #11 OSEB 866 BRB 
OSED 867 107%: PRINT 0,<Summary of LRP lookaside List> 
OD 11 OSFA 868 BRB 169 9$ 
OSFC 869 108$: PRINT <Summary of og lookaside List> 
O6E1"CF 00 FB 0609 870 109$: CALLS ob W*SHOW_COUNTS : DISPLAY BLOCK TYPE COUNTS 
04 0608 71 RET 
AD OOOO0000'EF 00 €1 060F He 110$: BBC #OPTSV FREE,OPTIONS,90$ ; SKIP BLOCK UNLESS /FREE 
7E 01 CE 0617 874 MNEGL #1,-(SP) : SET TO PRINT “CFree]' 
AO 11 061A 875 BRB 0 3 DO IT 
061C 876 .DISABLE LSB 
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| 
61C 879; 
éi¢ 80 ; LOCAL SUBROUTINE TO DUMP CONTENTS OF POOL BLOCK | 
° | 
61C Be ; 4(AP) = ADDRESS OF BLOCK 
61C 83 ; B8(AP) = LENGTH OF BLOCK 
61¢ 8 : 19 CAP) = TYPE OF BLOCK (0 IF UNKNOWN) 
61¢ 5: 13(AP) = POSSIBLE SUBTYPE 
61C 86 ; 
61C 887 
61C 888 .ENABL LSB 
61C 889 | 
61C 890 FREE_STR: 
5D 65 65 72 46 5B 00° 061C 91 sASCIC /Cfreel/ 
06 pols 
06 892 
0623 898 PooL_sLock: | 
007¢ 06 3 894 .WORD “M<R2,R3,R4,R5,R6> | 
56 O0000000'EF DO 0625 896 MOVL OPTIONS, R6 ; PICK UP THE OPTIONS WORD 
0156 06 €1 062c 897 BBC #OPTSV_SUMMARY,R6,5$ SKIP IF SUMMARY ONLY | 
04 0630 898 RET 
0631 899 | 
OC AC DS 0631 900 5$ TSTL 12cAP) : FLAG SET? 
06 18 0634 901 BGEA 4=s«15$ + NORMAL | 
54 EZ AF DE 0636 90 MOVAL FREE_STR,R4 > ADDRESS OF “'CFREEJ" | 
4F O11 063A 903 BRB 25$ : PRINT IT | 
50 OC AC 9A 063C 905 158 MOVZBL 12(AP),RO ; TYPE OF BLOCK | 
54 O0000000'EF4O 3C 0640 906 MOVZWL DYN_PTRCROJ,R4 : OFFSET FROM DYN_TAB TO SYMBOL NAME 
54 O0000000'EF44 9E 0648 907 MOVAB DYN_TABER4] .R4 t ADDRESS OF SYMBOL NAME 
51 O0000000'EF4O 9A 0650 908 MOVZBL DYN"MAPLROJ.R1 : PICK UP INFO ON TYPE 
14 13 0658 909 BEQL 20$ : NOT SUB-TYPABLE. CONTINUE 
52 OD AC 9A 065A 910 MOVZBL 13(AP),R2 : PICK UP POSSIBLE SUBTYPE 
OE 13 065— 911 EQL 208 : NONE, CONT | 
51 52 91 066 912 CMPB Re R1 > CHECK LEGAL RANGE 
09 14 0663 91 BGTR 208 : OUT OF RANGE, CONT 
50 84 9A 0665 914 10$:  MOVZBL (R4)+,RO : LENGTH OF SY 
54 O50 C0 0668 915 ADDL RO, R4 : STEP OVER IT 
F7 52 «FS «(0668 916 SOBGTR R2.10$ : DO IT UNTIL SYMBOL VALUE 
1956 08 €1 66 917 20$: BBC #OPTSV_TYPE,R6,25$ : SKIP IF NO /TYPE= 
55 54StOiéi sé 918 MOVL R4,RS : COPY POINTER 
50 BA (0675 919 MOVZBL (R5)+,RO ; PICK UP LENGTH 
00000000'EF 50 91 0678 920 CMPB —s RO, STRUCTURE + DO LENGTHS MATCH? | 
oF 12 O67t 921 BNEQ 90$ > NO, SO NO HOPE OF CHAR MATCH | 
00000006'FF 65 0 29 0681 9 : CMPC3 RO,(RS),@STRUCTURE+4 : DO'CHAR MATCH? | 
55 12 0689 9 BNEQ 90$ : NO, NO MATCH AT ALL 
08 AC DD 0688 924 25$:  PUSHL (AP) t LENGTH OF BLOC 
04 AC DD O68 925 PUSHL 4(AP) : ADDRESS OF BLOCK 
54 DD 0691 9 é PUSHL RG : PUSH ADDRESS OF SYMBOL | 
$93 3 to PRINT 3,<!7AC !8XL !5UL> | 
6A0 929 REQMEM @4(AP) BUFFER, #16 > 16 BYTES PER LINE 
50 00000000" EF DE 682 930 MOVAL BUFFER. RO | 
0 DD 0689 931 PUSHL R ; ADDRESS OF DATA 
10 DD 06BB 9 é PUSHL #16 : LENGTH OF STRING 
80 DD 068D 9 PUSHL (RO)+ 
0 DD O6BF 934 PUSHL  (RO)+ 
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89 DD 06C 2 5 PUSHL  (RO)+ 
80 dD 06C 6 PUSHL  (RO)+ 
6c5 9 RINT 6,<!3(_)!4(9XL) !AF> — ; PRINT DUMP LINE 
04 AC 10 CO 0602 938 ADDLg #16,4 (KP) : INCREMENT ADDRESS 
08 AC 10 ce 606 939 SUBL2 #16.8(AP) + DECREMENT LENGTH 
04 15 O6DA 940 BLEQ 90% : DONE, LEAVE 
CO 56 07 €1 O06DC 941 BBC #OPTSV_HEADER,R6,30$ § ; MORE TO DO 
6E he 90$: 
04 0660 94 RET 
GE! 344 
6E1 945 .DSABL LSB 
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6E1 948; 
ot! $9 ; LOCAL SUBROUTINE TO DISPLAY THE BLOCK TYPE COUNTS 
661 951 
6—1 9 : -ENABL LSB 
6€1 9 
61 954 SHOW_COUNTS: 
O3FC oe] 939 .WORD “M<R2,R3,R4,R5,R6,R7,R8B,RO> 
ge} 989 SKIP 1 ; PRINT BLANK LINE 
52 QOO00000'EF  9€ oe 958 MOVAB DYN_ PTR, R > ADDRESS OF SYMBOL TABLE 
3 90000000 EF 9E O6F 959 MOVAB DYN7C + ADDRESS OF COUNT E 
4 9000 OEE E O6FA 960 MOVAB DYN ~pNTES RG + ADDRESS OF BYTE USAGE TABLE 
57 0081 8F ¢ 0791 961 MOVZWL #END_SYM R7 ; NUMBER OF SYMBOLS TO LOOK AT 
58 QO000000'EF 7D 0706 96¢ MOVG SPACE USED : PICK UP SOME ES 
08 00000000" EE 04 E1 9700 96 BBC #OPTSY UBENGTH, OPTIONS,5$; FOR RANGE SPECIFIED 
9 58 D1 0715 964 CMPL RB R .* : IS SPACE_USED > TOTAL_SPACE? 
03 18 0718 965 BLEGU 5$ ; 
59 DO O71A 966 MOVL.  RB,R9 : YES, THEN SET EQUAL 
55 $8 00000064 BF (7 al 967 58: DIVL3 #160. RB,RS + COMPUTE SPACE USED/100 
51 84 D0 0725 369 MOVL  (R4)+,R1 : GET # BYTES «fick THIS TYPE 
56 Be € 0728 970 MOVZWL (Re) + RG : OFFSET FOR SYMBOL 
50. 8 g 0728 971 MOVZWL (R3)+_RO : GET NEXT CO 
x 2 @ : 976 BEQL 208 : SKIP IF ZERO 
a un Ss. 2. @ 97 DIVL3 R5,R1,-(SP) : GET PERCENTAGE USAGE 
51 DD «0734 «(974 PUSHL R14 : GET BYTE COUNT FOR THIS TYPE 
00000000'EF46 SF 0736 975 PUSHAB DYN_TABCR6] : ADDRESS OF SYMBOL 
50 oD 0730 976 PUSHL RO 
O73F 977 PRINT 4,<!SUW !9AC = !8UL (!UL%)> 
074¢ 978 208: 
D657 FG o7ac 979 SOBGEQ R7,10$ 
7E 59 SB C3 O74F 981 SUBL3 RB. R9,= (SP) : SPACE LEFT TO USE 
7E 58 7D 0753 98¢ MOva (§P) : TOTAL SPACE AVAILABLE 
0756 «98 SKIP 
O75F 984 PRINT spore! space used = 'UL out of !UL total bytes. 'UL bytes left> 
58 00000064 8F C4 076C 985 MULL #150 ; SET UP FOR PERCENT 
7E 58 59 (C7 0773 986 DIVL3 RY, Ny esp) 
0777 987 SKIP ee 
0780 988 PRINT 1,<Total space utilization = !UL%> 
078D 989 ET 
078E 990 
078E 991 .DSABL LSB 
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ACBSL_KAST = 0001 DYNSC_EXTGSD = 
eon Bee Nae : HSS 
1 DYNSC_GSD s 1 
PF sit : Sa pa : HSSe 
BLOCK TRBLe $000 10 R 02 DYNSC_IRP 2 Q000A 
bree ttt mY oe = B30u0et 
EDRPSE-CERGTN : $600 DYNSC_JNL = 000 Boe? 
CEBSC_CENGTH = 90000088 DYNSC_JNLWCB = 00000024 
CHECK_BLOC 00004AB R OA DYNSC_JNL_ABL = 8 3 1 
CRBSC_LENGTH = 500004 DYNSC_JNL_ACBM = 4 
CRB$L_INTD = 0000004 DYNSC_JNL_ADL = 000000 ; 
CXBSC_LENGTH = 0000002 DYNSC_JNL_BCB = 0000000 
DDBSC_LENGTH = 00000044 DYNSC_JNL_ BUF 2 aE 
DIFF ~ = 0000007F DYNSC_JNL_BXSTS = 0000001 
DO_ILRP 0000506 R OA DYNSC_JNL_CWQ = 00000010 
DPTS$C_LENGTH = $0000 33 DYNSC_JNL_DB = BD B RRS 
DUMP_POOL 900008 9R OA DYNSC_JNL_DIOREAD = 0000001 
DYNST_ACB = 00000002 DYNSC_JNL_JMT = 90000009 
DYNSC_ACL = $000008F DYNSC_JNL_ = 00000012 
DYNSC_ADP = 00000001 DYNSC_JNL_MSGDATA = 00000014 
DYNSC_AQB = 00000003 DYNSC_JNL_ = 00000008 
DYNSC_BOOTCB = §0000008 DYNSC_JNL_ = 00000011 
DYNSC_BRDCST = 0000001A DYNSC_JNL_RCPC = 0000000C 
DYNSC_BUF IO = 0000001 DYNSC_JNL = 0000000A 
DYNSC_CD $0000083 DYNSC_JNL_RRP = 00000008 
DYNSC_ CDRP = 00000039 DYWSC_JNL_RUL = 0000000D 
DYNSC_CD_BBRPG = 00000002 DYNSC_JNL_SFT = 00000007 
DYNSC_CD_CDDB = 00000001 DYNSC_JNL_VCL = 000000CE 
DYNSC_CD" SHDW_WRK = 00000003 DYNSC_JNL_VLE = 0000000F 
DINSC-CHIP = 00000088 DYNSCHKFD = 00000043 
Y  ] s 
* = “KF = 00000018 
Siaee=etA = Sougg9e3 BINRE-ET Fe = 10099846 
DYNSC_CIDG = 00000038 DYNSC_KF = 00000026 
YNSC_CIMSG = 0000003C DYNSC_LC_CHREML = 00000006 
DYNSC_CI_BDT = 00000001 DYNSC_LC_CL = 00000005 
DINSC~CLASSDR = 00000064 DYNSC-LE-APS = 00000005 
DYNSC_CLASSDRV = a. = 
= cP = 00000008 
DYNSC7CLU_BTX = athe DYNBE-LE=seS = 99000004 
DYNSC_CLU = % = 
pre es : BESS8e ata : BESSe 
DYNSC_CLU-CLUVEC = 29000 $ YNSC_LN = 000 23 
DYNS$SC_CLU = 000 1 DYNSC_LOADCODE = 0000006 
DYNSC_CLU-LCKDIR = 00007 YNSC_LOG : 8 B 
Smape-Ee8 = $eenene atte = $eeuen 
DYNSE “CST . 6 6 08 DYNSC_MPWMAP z 4 
DYNSC_CXB = 001 YNSC_ATL = 19 
DYNSC_DCCB = 6 ; DYNSC"MVL = 16 
YNSC_D = $6 DYNSC_NDB = \¢ 
DYNSC_DPT = 0000001E DYNSC_NET z ° 1 
DYNSC_ERP = 0000003A DYNSC_NON_PAGED = 01 
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DYNSC_ORB 
DYNSC “PAGED 
DYNSC_PBH 


DYNSC_PGD 
DYNSC_PGD_F11BC 
DYNSC_PHVEC 
DYNSC_PIB 
DYNSC— 
DYNSC_POQB 
DYNSC_PRCMAP 
DYNSC_PTR 


Vvurono 
VvooCodoe+-c9o 
—~-—4 @Onza-r- 


Ssvss 


DYNSC_SLAVCEB 
DYNSC_SPECIAL 
DYNSC_SSB 


DYN_CNT SIZ 
DYN_MAINPTR 


DYNSC~RBM 
DYNSCRIGHTSLIST 
DYNSC~RSB 
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DYN_MAP 
YN-PTR 

DYN-SUBPTR 
AB 


GL NOME AGED 


L“SPLITADR 
CENGTH 
F CBDEF 
LENGTH 

TR 
EXTGSDLNG 
LENGTH 


L 
GL-SRPSIZE 
GL-SRPSPLIT 


PRAMAS 
aa 


POOL_START 


LAST-VALUE 
LAST" VALUE _MAIN 
LNNBST. AME 


NON 
NSUBT 
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Symbol table 
OF FSET 


OPTSV" TYPE 
OPTIONS 

PAGD 

PBHSC LENGTH 


PFLSC”LENGTH 
POOL _BLOCK 
posse LENGTH 


PTR RSL _PTRO 
ROASC LENGTH 


REQME 

RSBSC -LENGTH 
RSBSK-MAXLEN 
BVTSC LENGTH 
SCAN_POOL 

set -READ ING 

Senet “Pace 
SGuScl “PAG Pp GEDYN 
See touts” 
SHOW POOL 

SHOW_ POOL _RANGE 
SKIP-LINES 
SPACE USED 


$s 
STRUCTURE 
SUBTF 


SYM 
TOTAL_SPACE 


WCBSC"LENGTH 
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00000050 
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00000300 
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00000020 
9444 
0000005F 
00000000 
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00 $0000 
000000 
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POOL 
Psect synopsis 


tor en erm ece eo eS 


! \ Psect synopsis ! 


ene wee eee et tne § 


PSECT name A 


— 


Location PSECT No. Attributes 


. ABS 6° 00000 ( 0.) 00 ¢ 0.) NOPIC “USR 
ABSS 44644 ( +} 1 ¢ 1.) \NOPIC USR 
SDADATA 0 Ark . oe. ¢ ( §°3 NOPIC  USR 
DYNMAINPTR 0 4d ( 16.) ( -) NOPIC USR 
DYNSUBPTR B38 8 4 ( \g4 3 4 ( 4.) NOPIC USR 
YNM 0000100 ( ¢ - 5 ( 5.) NOPIC  USR 
DYNPTR sett 44 ( 512.) § ( 8. NOPIC USR 
DYNTAB 0000038D (¢ 909.) ( -) NOPIC  USR 
DYNCNT 00000102 (¢ $73-3 8 ( 8.) NOPIC  USR 
DYNBYTES 00000204 ( 516.) 09 ¢( 9.) NOPIC  USR 
POOL 4441443 ( 1934.) OA ( 10.) NOPIC  USR 
LITERALS 0000033 ( 825.) 0B ( 11.) NOPIC USR 
oo + 
! Perforaance indicators : 

Phase Page faults CPU Time Elapsed Time 
Initialization 34 00:00:00.06 00:00 700.93 
Command processing 115 OF 08:80" s5 00:00:0 “$1 
Pass 1 805 1S SE SS 09:01:40.75 
pyabol table sort 0 00:00: g-43 00:00:10.97 

Pass 2 200 00:00:05.89 Bo: 80186 +8> 
Symbol table output 34 B80: 06. 08 00:00:00.3. 
Psect synopsis output 3 00:00:00.04 00:00:00.03 
Cross-reference output 9 Bp 8888-28 ee at Be 
Assembler run totals 119 00:00:38.40 0:02:18.29 


The working set Limit was 2250 pages. 


994 source Lines were read in Pass 1, producing 66 object records in Pass 
pages of virtual memory were used to define 52 macros. 
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! ; Macro library statistics H 


Macro Library name Macrcs defined 


_$255SDUA theee. o- 084 isp 18 F -MLB;1 7 
- 5S$DUA 31 41 

$255$DUA :ESYSLIBISTARLET. MLB; 2 3 
TOTALS (all libraries) 51 


2619 GETS were required to define 51 macros. 
There were no errors, warnings or information messages. 
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222222222222 
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247978 bytes (485 pages) of virtual memory were used to buffer the intermediate c 
There were 130 pages of symbol table space allocated to hold 2413 non-local and §9° lecet symbols. 
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MACRO/LIS=LIS$:POOL/OBJ=OBJ$:POOL MSRC$:POOL/UPDATE=(ENH$: POOL) +EXECML$/LIB+LIB$:SDALIB/LIB 


AX/VMS Macro V04- 
SDA.SRCJPOOL .MAR; 


90 


2 SH me # 


AL EQUIPMENT CORPORA 


0 
DENTIAL AND PROPRIE Y 


